home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Arsenal Files 6
/
The Arsenal Files 6 (Arsenal Computer).ISO
/
prg_basi
/
n_b-v200.zip
/
DAS-NBT3.INC
< prev
next >
Wrap
Text File
|
1996-03-11
|
2KB
|
59 lines
'────────────────────────────────────────────────────────────────────────────
$LINK "DAS-NBT3.PBL"
'────────────────────────────────────────────────────────────────────────────
TYPE TmenuTYPE
SetUp AS BYTE
Row AS BYTE
Col AS BYTE
Iwide AS BYTE
IRows AS BYTE
ICols AS BYTE
Vert AS BYTE
Wrap AS BYTE
HKs AS BYTE
AttrN AS BYTE
AttrL AS BYTE
AttrB AS BYTE
AttrO AS BYTE
Srow AS BYTE
Scol AS BYTE
Srows AS BYTE
Aattr AS BYTE
Brdr AS BYTE
Battr AS BYTE
Shdo AS BYTE
Sattr AS BYTE
Tpos AS BYTE
END TYPE
'────────────────────────────────────────────────────────────────────────────
TYPE YesNoTYPE
YesKey AS BYTE
YesText AS STRING * 17
YesAttr AS BYTE
NoKey AS BYTE
NoText AS STRING * 17
NoAttr AS BYTE
OffAttr AS BYTE
ShdoFore AS BYTE
END TYPE
'────────────────────────────────────────────────────────────────────────────
'════════════════════════════════════════════════════════════════════════════
DECLARE FUNCTION fTmenu% (I$(),BYVAL LastI%,H$,SEG Exet$,BYVAL SN%)
DECLARE FUNCTION fTmenuBox$ (I$(),BYVAL LastI%)
DECLARE FUNCTION fTmenuDD? (M$(),H$(),BYVAL SN?)
DECLARE FUNCTION fTMenuDDopen$ (M$(),L?(),O?(),A?(),SEG Exet$)
DECLARE FUNCTION fTmenuH% (I$(),BYVAL LastI%,H$(),SEG Exet$,BYVAL SN%)
DECLARE FUNCTION fTmenuHO% (I$(),BYVAL LastI%,H$(),O?(),Exet$,BYVAL SN%)
DECLARE FUNCTION fTmenuHOT% (I$(),BYVAL LastI%,H$(),O?(),T%(),BYVAL Exet$,BYVAL SN%)
DECLARE FUNCTION fTmenuHT% (I$(),BYVAL LastI%,H$(),T%(),SEG Exet$,BYVAL SN%)
DECLARE FUNCTION fTmenuINDEX% (I$(),BYVAL LastI%,SEG H$,SEG Exet$,BYVAL Sn%)
DECLARE FUNCTION fTmenuItem? (SEG M$,SEG I$,BYVAL ItemOn?,BYVAL Nattr?,BYVAL Lattr?,BYVAL Oattr?)
DECLARE FUNCTION fTmenuO% (I$(),LastI%,SEG H$,O?(),SEG Exet$,BYVAL SN%)
DECLARE FUNCTION fTmenuOT% (I$(),BYVAL LastI%,H$,O?(),T%(),SEG Exet$,BYVAL SN%)
DECLARE SUB TMenuSETUP (SEG I$,BYVAL LastI%,BYVAL Wide%)
DECLARE FUNCTION fTmenuT% (I$(),BYVAL LastI%,H$,T%(),SEG Exet$,BYVAL SN%)
DECLARE FUNCTION fYesNo? (BYVAL T$,BYVAL Row?,BYVAL Col?,BYVAL Cols?,BYVAL Hit?)
'════════════════════════════════════════════════════════════════════════════